home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _d3ffc6faf236a91607b7122c76e84d84 < prev    next >
Encoding:
Text File  |  2001-08-20  |  411 b   |  18 lines
  1. <Job Id="WshShell">
  2. <script language=PerlScript>
  3.     $WshShell = $WScript->CreateObject("WScript.Shell");
  4.     $WshShell->Run("notepad", 5);
  5.     $WshShell->AppActivate("Untitled - Notepad");
  6.  
  7.     my $message = "Hello from PerlScript!\n";
  8.  
  9.     for($i=0; $i < length($message); $i++) {
  10.     $char = substr($message, $i, 1);
  11.     $WScript->Sleep(100);
  12.     $WshShell->SendKeys($char);
  13.     }
  14. </script>
  15. </job>
  16.  
  17.  
  18.